unit oFrameLL;

{
	created   26.3.2010
	author   	Miroslav Mintal
	purpose
}


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, oManager, oProcessItem, oProcessObjectConstants,
  oProcessObjects, Menus, Buttons;

type
  TFrameLL = class(TFrame)
    txtName: TLabeledEdit;
    btnSave: TButton;
    btnCancel: TButton;
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    aManager: TManager;
    { Private declarations }
  public
    Success : boolean;
    property Manager: TManager read aManager write aManager;
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TFrameLL.btnCancelClick(Sender: TObject);
begin
  aManager.ProcessObject(TProcessItem.create(PO_EDITOR_LL_CANCEL, nil));
end;

procedure TFrameLL.btnSaveClick(Sender: TObject);
begin
  aManager.ProcessObject(TProcessItem.create(PO_EDITOR_LL_SAVE, nil));
end;

end.
